home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35623.lsp < prev    next >
Text File  |  1998-03-15  |  4KB  |  141 lines
  1. ;=============356.23 LAUFROLLENPROFIL 6
  2.  
  3. (EAITDBL "0035623")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35623V1( / P1 Wi)
  8.    (EAITDBL "0035623")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt EAITofzen 4 nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "35623V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 171)) 25) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31. (defun C:35623V2( / P1 Wi)
  32.    (EAITDBL "0035623")
  33.    (princ (strcat "\n\n" EAITbez1))
  34.      (EAITvari)
  35.      (EAITvars)
  36.      (setvar "ORTHOMODE" 0)
  37.      (EAITbpt EAITofzen 4 nil)
  38.      (setq P1 (getpoint))
  39.      (if (= P1 nil)(setq P1 (EAITrpt)))
  40.      (setvar "OSMODE" 0)
  41.      (setvar "ORTHOMODE" 1)
  42.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  43.      (command EAITege (strcat EAITpfn "35623V2") P1 "" "" EAITofkei pause)
  44.  
  45.      (setq Wi (EAITbw))
  46.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 9)) 25) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.      )
  49.  
  50.      (EAITvarz2)
  51.      (princ)
  52.  
  53. );defun V2
  54.  
  55. (defun C:35623D1( / P1 LAE Wi WIN WINFO KRI)
  56.    (EAITDBL "0035623")
  57.    (princ (strcat "\n\n" EAITbez1))
  58.      (EAITvari)
  59.      (EAITvars)
  60.      (setvar "ORTHOMODE" 0)
  61.      (EAITbpt nil nil nil)
  62.      (setq P1 (getpoint))
  63.      (if (= P1 nil)(setq P1 (EAITrpt)))
  64.      (initget (+ 1 2 4))
  65.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  66.    (setq LAE (getdist))
  67.    (setq LAE (EAITck LAE))
  68.      (setq LAE (atof (rtos LAE 2 1)))
  69.  
  70.      (setvar "OSMODE" 0)
  71.      (setvar "ORTHOMODE" 1)
  72.      (initget 1)
  73.    (EAITmsg "mb_mld10" "\n" "004" nil)            ;Winkel
  74.      (setq WIN (getangle P1))
  75.  
  76.     (setvar "ORTHOMODE" 0)
  77.      (initget 1)
  78.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  79.      (setq KRI (getangle P1))
  80.  
  81.     (command EAITlay EAITlse "EAIT50" "")
  82.     (if (not EAITpro8) (load (strcat EAITpfn "EAITpro8")))
  83.     (EAITpro8 "LAUF 6 D1" P1 LAE WIN KRI)
  84.  
  85.      (setq Wi WINFO)   ; WINFO kommt aus PRO8.LSP
  86.     
  87.      (setq LAE (rtos LAE 2 1))
  88.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 Wi 6.5) "" "" ""
  89.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 LAE (rtos EAITb1 2 1) EAITnr
  90.      )
  91.  
  92.      (EAITvarz2)
  93.      (princ)
  94.  
  95. );defun D1
  96.  
  97. (defun C:35623S1( / P1 LAE Wi WIN WINFO KRI)
  98.    (EAITDBL "0035623")
  99.    (princ (strcat "\n\n" EAITbez1))
  100.      (EAITvari)
  101.      (EAITvars)
  102.      (setvar "ORTHOMODE" 0)
  103.      (EAITbpt nil nil nil)
  104.      (setq P1 (getpoint))
  105.      (if (= P1 nil)(setq P1 (EAITrpt)))
  106.      (initget (+ 1 2 4))
  107.    (EAITmsg "mb_mld10" "\n" "005" nil)            ;Laenge
  108.    (setq LAE (getdist))
  109.    (setq LAE (EAITck LAE))
  110.      (setq LAE (atof (rtos LAE 2 1)))
  111.  
  112.      (setvar "OSMODE" 0)
  113.      (setvar "ORTHOMODE" 1)
  114.      (initget 1)
  115.    (EAITmsg "mb_mld10" "\n" "004" nil)            ;Winkel
  116.      (setq WIN (getangle P1))
  117.  
  118.     (setvar "ORTHOMODE" 0)
  119.      (initget 1)
  120.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  121.      (setq KRI (getangle P1))
  122.  
  123.     (command EAITlay EAITlse "EAIT50" "")
  124.     (if (not EAITpro8) (load (strcat EAITpfn "EAITpro8")))
  125.     (EAITpro8 "LAUF 6 S1" P1 LAE WIN KRI)
  126.     
  127.     (setq Wi WINFO) ;  WINFO kommt aus PRO8.LSP
  128.     
  129.      (setq LAE (rtos LAE 2 1))
  130.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 Wi 6.5) "" "" ""
  131.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 LAE (rtos EAITb1 2 1) EAITnr
  132.      )
  133.  
  134.      (EAITvarz2)
  135.      (princ)
  136.  
  137. );defun S1
  138.  
  139.  
  140. (princ)
  141.